EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
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MODULE STRSPOSITION ( ! Find the position of a substring 
IDENT = 1-014" ! File: STRPOSIT.B32 Edit: RKR1014 


)= 
BEGIN 


RRR R RARER AAERAAE RARER AAA EE AEE EAHA A TATA E EATER EERE KRE AREER Ee 


!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘ eeePORAT ine NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* e 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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* 
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® 
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ie TRANSFERRED. . 
® 
® 
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® 
* 
® 
® 
® 
® 
® 


See RRR AAR AAE RE AEARAAAAAAA AAA AERA ARERR TAA A AAR RTA REEREEEEE 
' 


++ 

FACILITY: String support Library 

ABSTRACT: This module takes 2 input strings of any supported class and 
dtype and returns the position of the substring in the main 
string starting at an input position 

ENVIRONMENT: User mode, AST level or not or mixed 

AUTHOR: R. Will, CREATION DATE: 10-Mar-79 

MODIFIED BY: 


Will, 10-Mar-79 : VERSION 01 
Original 


3 


Sooooooo 
+3 
= 


SCSSSSEPEEE 


1 - 
2 - Fix bug with starting pos > searched string length. 
RW 14-Jul-79 
3 - Correct a typo in edit 002. JBS 25-JUL-1979 
4 rene | agree with DEC BASIC Standard Proposal. 
5 = Change none to STR$, string cleanup. RW 1-NOV-79 
$ - Correct the psect name. JBS 02-NOV-1979 
- Use the new interlock macros. JBS 06-NOV-1979 
$ - Return only after freeing unter locks RW g fever? 
- Use interlocks in Call enter RW 15-Nov-7 
0 - String speedup. Remove edit 9. RW 
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Ut ial 
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-$ep-1984 01:45: AX-11 Bliss-32 V4.0-7 
WecSEe-198e QU:45%S Ua Obese Ha wes 0-243 
! 1-011 = Remove {noroper declaration and use of ACTUALCOUNT from 
' STRSPOSITION_R6. 
; Add comments to indicate argument registers. sl, 10-Dec-1980 
! 1-012 = Enhance to recognize additional classes of descriptors by 
; using SSTRSGET_LEN_ADDR to extract length and address of 
: first data byte from the given descriptors. Remove string 
; interlocking code. RKR 21-APR-81 
! - Fix bug relating to START_POS. SBL 28-Sep-1981 
- Speed up code. RKR 19-OCT-1981. 
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GLOBAL ROUTINE STRSPOSITION ( 


SRC_DESC, 
SUB-DESC 
START_POS 


—+> 4s 


++ 


FUNCTIONAL DESCRIPTION: 


strin 


WA.AA ANIA ALAI AAA AWWW 


WWW 


FORMAL PARAMETERS: 
SRC_DESC.rt.dx 


SUB_DESC.rt.dx 
START_POS.ri.r 


NOUS WO CONOU SW" OOO 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
FIND_POS.wlu.v 


SIDE EFFECTS: 


AAO UMIMIVIMNUIVIVIVIMI EB BREESE LPS 


SOOO NO VS WN @OODNOA UE WIN $0 OONAUE WN 0 OD NAUES WN ODOONOUEWN OOOO 
CPW) 2 O00 OA PI 2 O O00 NONE WD Oooo 
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BEGIN 
BUILTIN 

6 ACTUAL COUNT; 

‘9 LOCAL 

68 ACTUAL_START; 

% MAP 

71 SRC_DESC : REF SSTRSD 

81 re SUB"DESC : REF $STRSD 


2 
1B-Seo-1986 01:48:54 yaR-I1 Bl ieg-32 


! find position of substring 


! descriptor of string to search 
! descriptor of string to find 


! value of position to start search 


This routine takes two source etr ings of ony supported 
dtype and class and finds the position e 

source string starting at the input starting position. The 
routine returns the position of the substring in the source 


of the substring in the 


The first character of the source yy is at position 1. 
The call entry point is implemented by JS 


Bing to the JSB entry. 


pointer to descriptor of string to be 
searche 

pointer to descriptor of string to find 
position in source to pm Me 

search Coptional arg, default = 1] 


value of start position of substring in 
source string. 0 ==> not found. 


May signal STRS_ILLSTRCLA 


! if mo START_POS then 1 


-PSECT 

007C¢ 00000 -ENTRY 
02 6c 91 4st CMPB 
05 12 0000 BNEQ 
52 01 00 00007 MOVL 
04 11 QOOOA BRB 
52 OC BC 00 0000C 1$ MOVL 
50 AC 7D 00010 2$ MOVQ 
0000v 30 00014 BSBw 
04 00017 RET 


3; Routine Size: 24 bytes, Routine Base: _STRSCODE + 0000 


1 

; 1 3 ' a IF (ACTUALCOUNT () EQL 2) 

: 185 2 ACTUAL_START = 1 

; 187 28 ACTUAL_START = ..START_POS; 

: 189 1380 RETURN STRSPOSITION_R6 ( SRC_DESC [0.0.0.0], 

; 190 1381 B- DESC FS 6 6°03; 

: 191 1 Be -ACTUAL_STARTS ; 

: 192 1383 1 END; 'End of STRSPOSITION 
-TITLE STRSPOSITION 
-IDENT = \1-014\ 
.EXTRN STRS_ILLSTRCLA 


_STRSCODE,NOWRT, SHR, PIC,2 
STRSPOSITION, Save 42,R3,R4,R5,R6 
(AP), # 


#1, ACTUAL START 


aSTART POS, ACTUAL. START 
STRSPOSITION_R6 
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1b-sep-19 4 91:63:38 AX-11 Bliss-32 V4.0-7 
14-Sep-1984 12:40:12 LIBRTL.SRCJSTRPOSIT.B32;1 (4 
GLOBAL ROUTINE STRSPOSITION_R6 ( ! find position of substring 
SRC_DESC, ! descriptor of string to search 
SUB_DESC ' descriptor of string to find 
START_POS i value of position to start search 


) : STRSJSB_POSIT = 


lee 
! FUNCTIONAL DESCRIPTION: 


This routine takes two source strings of ony supported 
dtype and class and finds the position of the substring in the 
source string prers tee at the input starting position. 
The routine returns the position of the substring in the source 


string. 
The first character in the source string is at position 1. 
FORMAL PARAMETERS: 


ooooo 
SFSRLSs3 


SRC_DESC.rt.dx = RO ote oF descriptor of string to be 
searche 
06 SUB_DESC.rt.dx = R1 pointer to descriptor of string to find 
0 START_POS.rl.v = R2 value of position in source to begin 
S search 
: IMPLICIT INPUTS: 
: NONE 
; IMPLICIT OUTPUTS: 
: NONE 
; ROUTINE VALUE: 
FIND_POS.wlu.v value of start tty of substring in 
source string. 0 ==> Not found. 


SIDE EFFECTS: 


MEAN O OONOUES WN “OO OONOU EWN O0Oa~ 


iii ee ee ee ee eee SY 


Fae ay at at ot ot nt et et et et et tt kk et ke dd et et et et et 
PIII III at a st a tt hh th 


may allocate or deallocate dynamic string mpyee 
may signal STRS_ILLSTRCLA if not an acceptable string class 
BEGIN | 
LOCAL 
IN_IN_LEN ! Length of main string , 
MAIN” IN~ADDR, i addr of 1st data byte of main string | 
UB_TN_CEN ' Length of substring | 
UB~IN-ADDR i addr of Ist data byte of substring 
START OFFSET, i Offset into string of start position 
3 POINTER; ! position of substring in source string 
40 MAP 


2 
eda 1ESeoctgUs OU:t5:4S UML SLRS HgA tli 283, soap 


: 1 1441 SRC_DESC : REF SSTRSDESCRIPTOR, : 
; § 1e28 SUB_DESC : REF SSTRSDESCRIPTOR; : 
; 4 1444 + : 
; 5 1062 } Set START_OFFSET based on START_POS. Note that offset is U-origin. ; 
3 5 1009 : 
$ 8 1208 START _OFFSET = .START_POS = 1; ; 
; 9 144 IF .START_OFFSET LSS 0 . 
; 260 1450 THEN 3 
; 261 1451 START_OFFSET = 0; : 
H $¢ 1026 

: £ 14 1? 

: 2646 1454 ! Extract the length and address of Ist data byte of strings involved. 

3 2? 1082 } Signal if we find any errors. 

e | 

3 267 1289 SSTRSGET_LEN_ADDR (SRC_DESC, MAIN_IN_LEN, MAIN_IN_ADDR ); 

; 68 1458 SSTRSGET-LEN-ADDR ( SUB_DESC, SUB-IN“LEN, SUB_IN_ADDR ); 

; 270 1460 + 

s eri 1461 ! Adjust Length of source string for starting offset. Make 

: Le: re «| ! sure that the length doesn't go negative. | 

; e7 146 !- 

: 97% 1464 | 

; 6) 1465 IF _.START_OFFSET GTR .MAIN_IN_LEN 

: e77 1467 START_OFFSET = .MAIN_IN_LEN; 

; 278 1468 MAIN_IN_LEN = .MAIN_IN_LEN = .START_OFFSET; | 

; 279 1469 

; 280 1470 '¢ 

ae) 1471 ! Find the address cf the substring in the string described by 

; 288 1076 : starting at START_OFFSET in the source string 

3; 6284 1474 FIND_POINTER = CHSFIND_SUB ( 

; 285 1475 . IN_LEN ! len of string to search 

; 286 1476 CHSPLOS T.MAIN_IN_ADDR, .START_OFFSET), |! ptr to string to search 

3 44 1477 ~SUB_IN_L ' Len of str being searched for 

; 288 1478 .SUB~INZADDR); ! ptr to str being searched for 

: 289 1479 

: 290 1480 '¢ i 

: 291 1481 ! Return 0 if the eupese ine was not found, otherwise return the position 

; $36 re {| ! of the substring, l-origin. 

; 2g 148 t= 

: 29% 14 

; 95 1485 RETURN ( 

3 96 1486 IF CHSFAIL (.FIND_POINTER) 

: 297 1487 THEN 

: 298 1488 0 

; 299 He 44 ELSE | 

: 00 14 CHSDIFF (.FIND_POINTER, .MAIN_IN_ADDR) + 1 

; 301 1491 ); 

: 30 1638 

: 0 1493 1 END; 'End of STRSPOSITION_R6 


-EXTRN STRSANALYZE_SDESC_R1 


STRSEOSET LON 
-014 


6244 


; Routine Size: 


04 
05 


Name 
_STRSCODE 


53 51 
02 : 
02 03 A 
5 é 
4 04 00 
5 000000006 
32 
02 03 A 
ef a3 
1 04 +A 
50 96 
000000006 8 
if 
5 
if i 
55 61 56 
3 
53 3 
53 56 
o 
3 
5 
53 3 
50 33 
102 bytes, Routine Base: _STRSCODE 
1494 1 
1495 1 END 
1496 1 
1497 0 ELUDOM 
PSECT SUMMARY 


Bytes 


126 NOVEC,NOWRT, 


+ 


2 
16-Se 
14-Se 


“1986 $2:40i4 


dO 00000 STROPOSE TION AOS | 


AX-11 Ot ise 
LIBRTL.SRC 


LaF 


ADDR 


0 R1, R3 
F4 0 3 SOBGEQ START_OFFSET, 1$ 
ps CLRL TART- OFFSET 
1 1$: CMPB (SRC“DESC), #2 
\, C BGTRU 2$ 
MOVZWL (SRC_DESC), MAIN_IN_LEN 
p MOVL 4(SRC_DESCS, MAIR_IR_ADOR 
1 17 28: JSB STRSANALYZE_SDESC_R1 
D MOVL RO, R5 
p MOVL R1, R& 
023 3$: CMPB © 3(§UB_DESC), #2 
1A 000 BGTRU 4$ 
3C¢ 00029 MOVZWL (SUB_DESC), SUB_IN_LEN 
p 0 MOVL 4 (SUB_DESCS, SUB_IR_ADDR 
D0 09 4$: MOVL § SUB_DESC, RO 
16 JSB STRSANALYZE_SDESC_R1 
D0 000 MOVL RO, R6 
D} 00 : 5$: CMPL § START_OFFSET, MAIN_IN_LEN 
15 0004 BLEG 6$ 
DO 00043 MOVL. MAIN_IN_LEN, START_OFFSET 
¢ 0046 6$: SUBL2 START OFFSET, MAIN-IN_LEN 
0004 MATCHC SUB_IN_LEN (sug IR_ABDR) 
(START OF FSET) CMAIN-IN_ 
13 0004 BEQL «6s 7$ 
dO 00051 MOVL.  SUB_IN_LEN, R3 
C2 00054 7$: SUBL2 SUB-INTLEN, R3 
12 00057 BNEQ St 
D4 00059 CLRL oR 
11 00058 BRB 93 
C2 0005p 8s: SUBL2 MAIN_IN_ADDR, R3 
D6 00060 INCL =R3 
D0 006¢ 9$: MOVL 3, RO 
05 0006 RSB 
0018 
‘End of module 
Attributes 
RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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Library Statistics 


; sswccesee SyYRGOl§ coccesce Pages Processing 
: File Total Loaded Percent Mapped Time 
 _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.8 
3 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:STRPOSIT/OBJ=OBJ$:STRPOSIT MSRC$:STRPOSIT/UPDATE=(ENH$:STRPOSIT) 

Size: 126 code + 0 data bytes 

Run Time 0 


Elapsed. Timer 00:25. 
Lines/CPU Min: 15095 
Lexenes/CPU-Rin: 34255 
es Used: 82 pages 
Compilation Complete 
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